home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
T.J. Finds a Friend
/
T.J. Finds a Friend.iso
/
mac
/
IC2IC11I
/
IC2IC11I.rsrc
/
BITD_1158
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1993-11-24
|
777b
|
299 lines
GET
\<0x7f>IF
<0x7d><0x7f><0x7d>APPEND<0x7f>INPUT
<0x7e><0x7f><0x7c>APPEND<0x7f>EQV
MKI$
<0x7d><0x7f><0x7d>AS<0x7f>'
RSET
<0x7e><0x7f><0x7c>AS<0x7f><0x5c>
WRITE
varffffffff<0xf8,0x00><0x7e><0x7f><0x4f>
<0x4c>
<0x7e><0x7f><0xf8,0x00>varffffffffCVL
<0x57>
varffffffff<0xf8,0x00>varffffffffSPACE$
STATIC
varffffffff<0xf8,0x00>varffffffffON
/
varffffffff<0xf8,0x00><0x7e><0x7f>LINE
<0xf8,0x00>varffffffff<0xf8,0x00>varffffffffIF
varffffffff<0x7e>AS<0xf8,0x00><0x7f>GOTO
varffffffff<0xf8,0x00>varffffffff<0xf8,0x00>LEN
<0x7f><0xf8,0x00>varffffffff^
MKS$
<0x7f><0xf8,0x00>varffffffffTO
RSET
<0x7f><0xf8,0x00>varffffffff<0x5a>
WHILE
<0x7f>STEPvarffffffff<0x50>
<0x49>
<0x7f>STEPvarffffffff<0x45>
<0x54>
varffffffff<0xf8,0x00><0x7e><0x7f><0x3b>
<0x5e>
<0x7f>STEP<0x7d><0x7f>RND
>
varffffffff<0xf8,0x00><0x7d><0x7f>NEXT
XOR
<0x7f>MODAS<0x7f><0x20>
<0x7e>
varffffffffMODAS<0x7f>LEN
varffffffff<0x7c><0xf8,0x00> <0x7f>LET
varffffffffEQVALL<0x7f>varffffffffLINE
<0x7e><0x7f>EQVAS<0x7f><0xf7,0x00>MKI$
<0x7e><0x7f>EQVBASE<0x7f>AND
RIGHT$
<0x7d><0x7f>EQVBASE<0x7f>'
TAN
<0x7e><0x7f>ORAS<0x7f><0x5f>
MKL$
<0x7d><0x7f>XORAS<0x7f><0x56>
<0x4c>
<0x7d><0x7f>XORAS<0x7f><0x4d>
<0x55>
<0x7d><0x7f>XORAS<0x7f>AREA
<0x5e>
<0x7c><0x7f>EQVBASE<0x7f>VAL
NOT
<0x7c><0x7f>EQVBASE<0x7f>RSET
/
<0x7c><0x7f>EQVOUTPUT<0x7f>PRINT
<0xf7,0x00><0x7d><0x7f>XORBASE<0x7f>LOF
<0x7d><0x7f>OROUTPUT<0x7f>LSET
PTAB<0x7e>WAITOUTPUT<0x7f>LSET
<0x7c><0x7f>IMPAPPENDOUTPUT<0x7f>LSET
<0x7c><0x7f>ANDAS<0x7f>
<0x7f>MID$
<0x7d><0x7f>^OUTPUT<0x7f><0xf7,0x00>PRINT
<0x7e><0x7f>^TAB<0x7f>EQV
SIN
<0x7d><0x7f>/TAB<0x7f>-
WRITE
<0x7c><0x7f><OUTPUT<0x7f>TO
<0x48>
<0xf7,0x00>-OUTPUT<0x7f><0x5c>
<0x4f>
<0xf7,0x00>*SPC<0x7f><0x55>
<0x56>
<0x7c><0x7f>-OUTPUT<0x7f><0x4c>
<0x5e>
PTAB-BASE<0x7f>AREA
TO
<0x7c><0x7f>*BASE*
PTAB^OUTPUT<0x7f>RND
\
<0xb9,0x00>/BASE<0x7f>ON
<0x7d>
PTAB^BASE<0x7f>MKD$
<0x7d><0x7f>varffffffffANDOUTPUT<0x7f>MKD$
<0x7c><0x7f><0xb9,0x00>\BASE<0x7f>MID$
<0x7c><0x7f>OR<0xb9,0x00>AS<0x7f>LOG
<0x7d><0x7f>^AS<0x7f><0x7e>
MKI$
<0x7d><0x7f>ANDBASE<0x7f>IMP
REM
<0x7c><0x7f>ORAS<0x7f>+
STRING$
PTABXORAS<0x7f><0x62>
CLNG
<0xb9,0x00>IMPAPPEND<0x7f><0x58>
<0x48>
<0xb9,0x00>\APPEND<0x7f><0x4f>
<0x4f>
<0x7d><0x7f>\APPEND<0x7f><0x45>
<0x58>
varffffffffMOD<0xb9,0x00><0x7f><0x7f>TAN
<0x62>
<0x7f>IMP<0xb9,0x00><0x7f><0x7f>RETURN
-
varffffffffMOD<0xb9,0x00><0x7f><0x7f>MID$
<0xb9,0x00>varffffffffIMP<0xb9,0x00><0x7f>INT
<0x7f>IMP<0xb9,0x00><0x7f>INT
varfffff9ffINT
<0x7f>MOD<0xf4,0x00><0x7f><0x7f><0xf4,0x00>LSET
<0x7f>\<0xf4,0x00><0x7f><0x7f>+
RETURN
varffffffff<0xf4,0x00>varffffffff<0x60>
<0x3b>
varffffffffSTEP<0x7e><0x7f><0x55>
<0x46>
<0x7f><0xf4,0x00><0x7d><0x7f><0x49>
<0x52>
varffffffff<0x7e>OUTPUT<0x7f>VAL
<0x5e>
<0xf4,0x00>PRINT
<
<0x7c><0x7f>LEN
MOD
<0x7e><0x7f>^